home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / sortieren 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  451b  |  26 lines
  1. 100 rem***** listing 4/1 *****
  2. 103 :
  3. 105 data klinge g,mayer h,huebner a,schramm k,hauck h
  4. 110 data mayer d,waengler a,roeder t,absmeier a,schneider b,@
  5. 112 :
  6. 115 dim a$(20)
  7. 117 :
  8. 120 j=j+1
  9. 125 read a$(j)
  10. 130 if a$(j)<>"@" then 120
  11. 132 :
  12. 135 for k=1 to j-2
  13. 140   if a$(k) <= a$(k+1) then 180
  14. 143 :
  15. 145   b$=a$(k)
  16. 150      a$(k)=a$(k+1)
  17. 155            a$(k+1)=b$
  18. 157 :
  19. 160    for i=1 to j-1:print a$(i)
  20. 165    next i:print
  21. 167 :
  22. 170   get g$:if g$="" then 170
  23. 175   k=k-1:goto 140
  24. 180 next k
  25. 185 end
  26.